|
|
|
|
|
|
|
lblTimeZone.Caption = "Time zone information unavailable."
Case TIME_ZONE_ID_STANDARD
info = "Currently on Standard Time" & vbCrLf
Case TIME_ZONE_ID_DAYLIGHT
info = "Currently on Daylight Savings Time" & vbCrLf
End Select
info = info & "Local time = UTC + " & tz.Bias / 60 & " hours" & vbCrLf
info = info & "Standard time Bias = " & tz.StandardBias / 60 & _
" hours" & vbCrLf
info = info & "Daylight time Bias = " & tz.DaylightBias / 60 & _
" hours" & vbCrLf
timezonename = tz.StandardName
nulloffset = InStr(timezonename, Chr$(0))
info = info & "Standard time name: " & Left$(timezonename, _
nulloffset - 1) & vbCrLf
timezonename = tz.DaylightName
nulloffset = InStr(timezonename, Chr$(0))
info = info & "Daylight time name: " & Left$(timezonename, _
nulloffset - 1) & vbCrLf
lblTimeZone.Caption = info
End Sub |
|
|
|
|
|